home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / macmenus.arc / WPMM312L.DEF < prev    next >
Text File  |  1989-06-03  |  40KB  |  1,306 lines
  1. ;WP 5.0 LOGIMENU/WINDOWS-LIKE INTERFACE TO EMULATE WP MAC 1.0.2 COMMANDS
  2. ;USE THE WINDOWS/MACINTOSH CONCEPT OF BLOCK SELECTION PRIOR TO COMMAND
  3. ;SELECTION WHERE APPROPRIATE LOGITECH (2 BUTTON MOUSE), 25 LINE DISPLAY
  4. ;(c) D.PETHERICK (73627,226) MAY 31/89 version 3.1
  5. ;FOR 35,40,43,50 (ie. XX) LINE DISPLAYS, REPLACE <MATCH 25> WITH <MATCH XX>
  6. ;THROUGHOUT THIS .DEF FILE THEN RECOMPILE USING NEWMENU.EXE
  7.  
  8. BEGIN af4,macmenu,nul,mousel,mouser,mouseu,moused,64,64
  9.  
  10. mousel:    TYPE 0,75                ;left
  11. mouser:    TYPE 0,77                ;right
  12. mouseu:    TYPE 0,72                ;up
  13. moused:    TYPE 0,80                ;down
  14.  
  15. entr:    TYPE ENTER
  16. nul:        NOTHING
  17.  
  18. macmenu:    POPUP 1,3,INVERSE
  19.  
  20. ;      23456789012345678901234567890123456789012345678901234567
  21. TEXT "╔═════════════════════════════════════════════════════════╦════════════╗"
  22. TEXT "║Help  File  Edit  Search  Format  Font  Special  Windows ║*WP5MACMENU*║█"
  23. TEXT "╟─┬─┬─┬─┬─┬─┬──┬──╔═══════════════════════════════════════╩══════[3.1]═╝█"
  24. TEXT "║P│B│U│I│O│S│S│S║██████████████████████████████████████████████████████"
  25. TEXT "╚═╧═╧═╧═╧═╧═╧══╧══╝█"
  26. TEXT "████████████████████"
  27.  
  28.  
  29.         SELECT 2,2,4, helpmenu1
  30.         SELECT 2,8,4, filemenu
  31.         SELECT 2,14,4, editmenu
  32.         SELECT 2,20,6, searchmenu
  33.         SELECT 2,28,6, formatmenu
  34.         SELECT 2,36,4, fontmenu
  35.         SELECT 2,42,7, specialmenu
  36.         SELECT 2,51,7, windowsmenu
  37.         SELECT 4,2,1,  ptproc
  38.         SELECT 4,4,1,  boproc
  39.         SELECT 4,6,1,  unproc
  40.         SELECT 4,8,1,  itproc
  41.         SELECT 4,10,1, otproc
  42.         SELECT 4,12,1, shproc
  43.         SELECT 4,14,2, spproc
  44.         SELECT 4,17,2, sbproc
  45.         PEND
  46.  
  47. helpmenu1:    POPUP 2,3,INVERSE
  48.  
  49.             TEXT "┌[Help]──────────┐"
  50.             TEXT "│WordPerfect Help   │█"
  51.             TEXT "│2 Button Mouse Help│█"
  52.             TEXT "│About WP5MACMENU... │█"
  53.             TEXT "└────────────────────┘█"
  54.             TEXT "███████████████████████"
  55.  
  56.  
  57.             SELECT 1,2,4,helpexit
  58.             SELECT 2,2,20,helpexec
  59.             SELECT 3,2,20,lmousehelp
  60.             SELECT 4,2,20,aboutmsg
  61.             PEND
  62.  
  63. helpexit:        EXECUTE entr,backspc,macmenu
  64. helpexec:        EXECUTE f3,helpmenu2
  65. backspc:        TYPE BACKSP
  66.  
  67. helpmenu2:    POPUP 1,10,INVERSE
  68.  
  69. TEXT "┌[WordPerfect Help]─────────────────────────────────────────┐"
  70. TEXT "│ Control-Fn   Alt-Fn        Shift-Fn      Fn alone             │█"
  71. TEXT "╞══════════════════════════════════════════════════════╗        │█"
  72. TEXT "│ Shell        Thesaurus     Setup         Cancel      ║  (F1)  │█"
  73. TEXT "│ Spell        Replace       <Search       >Search     ║  (F2)  │█"
  74. TEXT "│ Screen       Reveal Codes  Switch        Help        ║  (F3)  │█"
  75. TEXT "│ Move         Block         >Indent<      >Indent     ║  (F4)  │█"
  76. TEXT "│ Text In/Out  Mark Text     Date/Outline  List Files  ║  (F5)  │█"
  77. TEXT "│ Tab Align    Flush Right   Center        Bold        ║  (F6)  │█"
  78. TEXT "│ Footnote     Math/Columns  Print         Exit        ║  (F7)  │█"
  79. TEXT "│ Font         Style         Format        Underline   ║  (F8)  │█"
  80. TEXT "│ Merge/Sort   Graphics      Merge Codes   Merge R     ║  (F9)  │█"
  81. TEXT "│ Macro Define Macro         Retrieve      Save        ║  (F10) │█"
  82. TEXT "│ Compose                                              ║  (^V)  │█"
  83. TEXT "├────────────────────────────────────────────────┐    ┌╨────────┤█"
  84. TEXT "│ SELECT ITEM FOR HELP - <spacebar> or <enter> or│EXIT│to leave │█"
  85. TEXT "└────────────────────────────────────────────────┴────┴─────────┘█"
  86. TEXT "╟─┬─┬─┬─┬─┬─┬──┬──╔    ┌─Plain Text ┐█████████████████████████████"
  87. TEXT "║P│B│U│I│O│S│S│S║    │ Bold       │█"
  88. TEXT "╚═╧═╧═╧═╧═╧═╧══╧══╝    │ Underline  │█"
  89. TEXT " └┬──────────────┴─────┤ Italic     │█"
  90. TEXT "  │                    │ Outline    │█"
  91. TEXT "  └ Quick Character    │ Shadow     │█"
  92. TEXT "    Style Selector     │ Superscript│█"
  93. TEXT "                       └ Subscript  ┘█"
  94. TEXT "██████████████████████████████████████"
  95.  
  96.             SELECT 1,2,4,helpmenu1
  97.             SELECT 4,3,12,cf1
  98.             SELECT 5,3,12,cf2
  99.             SELECT 6,3,12,cf3
  100.             SELECT 7,3,12,cf4
  101.             SELECT 8,3,12,cf5
  102.             SELECT 9,3,12,cf6
  103.             SELECT 10,3,12,cf7
  104.             SELECT 11,3,12,cf8
  105.             SELECT 12,3,12,cf9
  106.             SELECT 13,3,12,cf10
  107.             SELECT 14,3,12,composehlp
  108.             SELECT 4,16,12,af1
  109.             SELECT 5,16,12,af2
  110.             SELECT 6,16,12,af3
  111.             SELECT 7,16,12,af4
  112.             SELECT 8,16,12,af5
  113.             SELECT 9,16,12,af6
  114.             SELECT 10,16,12,af7
  115.             SELECT 11,16,12,af8
  116.             SELECT 12,16,12,af9
  117.             SELECT 13,16,12,af10
  118.             SELECT 4,30,12,sf1
  119.             SELECT 5,30,12,sf2
  120.             SELECT 6,30,12,sf3
  121.             SELECT 7,30,12,sf4
  122.             SELECT 8,30,12,sf5
  123.             SELECT 9,30,12,sf6
  124.             SELECT 10,30,12,sf7
  125.             SELECT 11,30,12,sf8
  126.             SELECT 12,30,12,sf9
  127.             SELECT 13,30,12,sf10
  128.             SELECT 4,44,12,f1
  129.             SELECT 5,44,12,f2
  130.             SELECT 6,44,12,f3
  131.             SELECT 7,44,12,f4
  132.             SELECT 8,44,12,f5
  133.             SELECT 9,44,12,f6
  134.             SELECT 10,44,12,f7
  135.             SELECT 11,44,12,f8
  136.             SELECT 12,44,12,f9
  137.             SELECT 13,44,12,f10
  138.             SELECT 16,51,4,exithelp
  139.             PEND
  140.  
  141. exithelp:        EXECUTE entr,backspc
  142.  
  143. cf1:            TYPE 0,94            ;control-Fn 1-10
  144. cf2:            TYPE 0,95
  145. cf3:            TYPE 0,96
  146. cf4:            TYPE 0,97
  147. cf5:            TYPE 0,98
  148. cf6:            TYPE 0,99
  149. cf7:            TYPE 0,100
  150. cf8:            TYPE 0,101
  151. cf9:            TYPE 0,102
  152. cf10:        TYPE 0,103
  153. composehlp:    TYPE 22            ;control-V
  154. af1:            TYPE 0,104        ;alt-Fn 1-10
  155. af2:            TYPE 0,105
  156. af3:            TYPE 0,106
  157. af4:            TYPE 0,107
  158. af5:            TYPE 0,108
  159. af6:            TYPE 0,109
  160. af7:            TYPE 0,110
  161. af8:            TYPE 0,111
  162. af9:            TYPE 0,112
  163. af10:        TYPE 0,113
  164. sf1:            TYPE 0,84            ;shift-Fn 1-10
  165. sf2:            TYPE 0,85
  166. sf3:            TYPE 0,86
  167. sf4:            TYPE 0,87
  168. sf5:            TYPE 0,88
  169. sf6:            TYPE 0,89
  170. sf7:            TYPE 0,90
  171. sf8:            TYPE 0,91
  172. sf9:            TYPE 0,92
  173. sf10:        TYPE 0,93
  174. f1:            TYPE 0,59            ;Fn 1-10
  175. f2:            TYPE 0,60
  176. f3:            TYPE 0,61
  177. f4:            TYPE 0,62
  178. f5:            TYPE 0,63
  179. f6:            TYPE 0,64
  180. f7:            TYPE 0,65
  181. f8:            TYPE 0,66
  182. f9:            TYPE 0,67
  183. f10:            TYPE 0,68
  184.  
  185. lmousehelp:    POPUP 4,10,INVERSE
  186.  
  187.             TEXT "┌[2 Button Mouse Help]──────────────┐"
  188.             TEXT "│          Mouse Button Help            │█"
  189.             TEXT "│ L   R - ( █ = Pressed, ░ = Released)  │█"
  190.             TEXT "├───────────────────────────────────────┤█"
  191.             TEXT "│ █   ░ - Block On/Off                  │█"
  192.             TEXT "│                                       │█"
  193.             TEXT "│ ░   █ - Select Menu Item              │█"
  194.             TEXT "│                                       │█"
  195.             TEXT "│ █   █ - Main Menu                     │█"
  196.             TEXT "└───────────────────────────────────────┘█"
  197.             TEXT "██████████████████████████████████████████"
  198.  
  199.             SELECT 1,2,4,helpmenu1
  200.             PEND
  201.  
  202.  
  203. filemenu:        POPUP 2,9,INVERSE
  204.  
  205.             TEXT "┌[File]──────────┐"
  206.             TEXT "│New        (No Save)│█"
  207.             TEXT "│Open...             │█"
  208.             TEXT "│Retrieve...         │█"
  209.             TEXT "│Close               │█"
  210.             TEXT "│Save                │█"
  211.             TEXT "│Save Selection As...│█"
  212.             TEXT "│Save Copy As...     │█"
  213.             TEXT "│File Management...  │█"
  214.             TEXT "│Print Options      │█"
  215.             TEXT "│Print...            │█"
  216.             TEXT "│WP Defaults        │█"
  217.             TEXT "│Transfer... (to DOS)│█"
  218.             TEXT "│Quit                │█"
  219.             TEXT "└────────────────────┘█"
  220.             TEXT "███████████████████████"
  221.  
  222.             SELECT 1,2,4,macmenu
  223.             SELECT 2,2,20,newproc
  224.             SELECT 3,2,20,f5
  225.             SELECT 4,2,20,sf10
  226.             SELECT 5,2,20,closeproc
  227.             SELECT 6,2,20,f10
  228.             SELECT 7,2,20,saveselproc
  229.             SELECT 8,2,20,savecopyproc
  230.             SELECT 9,2,20,f5
  231.             SELECT 10,2,20,printoptproc
  232.             SELECT 11,2,20,sf7
  233.             SELECT 12,2,20,wpdefproc
  234.             SELECT 13,2,20,cf1
  235.             SELECT 14,2,20,quitproc
  236.             PEND
  237.                                 ;IBM equivalent selections
  238.  
  239. newproc:        TYPE 0,65, "NN"        ;exit,no,no
  240.  
  241. closeproc:    TYPE 0,65, "Y"            ;exit,yes...
  242.  
  243. saveselproc:    MATCH 25,1,,"Block",f10,ctovr7
  244. ctovr7:    MATCH 25,11,,"Block",f10,blockmsg
  245.                 ;save (block)
  246.  
  247. savecopyproc:    MATCH 25,1,,"Block",noblockmsg,ctovr8
  248. ctovr8:    MATCH 25,11,,"Block",noblockmsg,cf5
  249.                 ;text in/out(save as other...)
  250.  
  251. printoptproc:    POPUP 12,16,INVERSE
  252.  
  253.             TEXT "┌[Print Options]─┐"
  254.             TEXT "│Page Setup...       │█"
  255.             TEXT "│Print Preview...    │█"
  256.             TEXT "│Print Selection...  │█"
  257.             TEXT "│Postscript...     NA│█"
  258.             TEXT "├─<WP 5.0>──────────┤█"
  259.             TEXT "│Select Printer...   │█"
  260.             TEXT "│Printer Control...  │█"
  261.             TEXT "│Printer Forms...    │█"
  262.             TEXT "│Binding Width...    │█"
  263.             TEXT "│Text Quality...     │█"
  264.             TEXT "└────────────────────┘█"
  265.             TEXT "███████████████████████"
  266.  
  267.             SELECT 1,2,4,filemenu
  268.             SELECT 2,2,20,pagesetupproc
  269.             SELECT 3,2,20,printprevproc
  270.             SELECT 4,2,20,sf7
  271.             SELECT 5,2,20,notpossmsg
  272.             SELECT 7,2,20,selptrproc
  273.             SELECT 8,2,20,ptrctlproc
  274.             SELECT 9,2,20,ptrformproc
  275.             SELECT 10,2,20,ptrbwproc
  276.             SELECT 11,2,20,ptrtqproc
  277.             PEND
  278.  
  279. pagesetupproc:    MATCH 25,1,,"Block",noblockmsg,ctovr11a
  280. ctovr11a:    MATCH 25,11,,"Block",noblockmsg,pagesetupcont
  281. pagesetupcont:    TYPE 0,91, "P"            ;format,page
  282.  
  283. printprevproc:        MATCH 25,1,,"Block",noblockmsg,ctovr11
  284. ctovr11:    MATCH 25,11,,"Block",noblockmsg,printprevcont
  285. printprevcont:    TYPE 0,90, "V"            ;print,view
  286.  
  287. selptrproc:        MATCH 25,1,,"Block",noblockmsg,ctovr12
  288. ctovr12:    MATCH 25,11,,"Block",noblockmsg,selptrcont
  289. selptrcont:    TYPE 0,90, "S"            ;print,select printer
  290.  
  291. ptrctlproc:        MATCH 25,1,,"Block",noblockmsg,ctovr13
  292. ctovr13:    MATCH 25,11,,"Block",noblockmsg,ptrctlcont
  293. ptrctlcont:    TYPE 0,90, "C"            ;print,printer control
  294.  
  295. ptrformproc:        MATCH 25,1,,"Block",noblockmsg,ctovr14
  296. ctovr14:    MATCH 25,11,,"Block",noblockmsg,ptrformcont
  297. ptrformcont:    TYPE 0,90, "SEF"        ;print,select printer,edit,forms
  298.  
  299. ptrbwproc:        MATCH 25,1,,"Block",noblockmsg,ctovr15
  300. ctovr15:    MATCH 25,11,,"Block",noblockmsg,ptrbwcont
  301. ptrbwcont:    TYPE 0,90, "B"            ;print,binding
  302.  
  303. ptrtqproc:        MATCH 25,1,,"Block",noblockmsg,ctovr16
  304. ctovr16:    MATCH 25,11,,"Block",noblockmsg,ptrtqcont
  305. ptrtqcont:    TYPE 0,90, "T"            ;print,text quality
  306.  
  307. wpdefproc:        MATCH 25,1,,"Block",noblockmsg,ctovr17
  308. ctovr17:    MATCH 25,11,,"Block",noblockmsg,wpdefcont
  309. wpdefcont:        POPUP 13,16,INVERSE
  310.  
  311.             TEXT "┌[WP Defaults]───┐"
  312.             TEXT "│Save Settings(Setup)│█"
  313.             TEXT "│Backup Options...   │█"
  314.             TEXT "│Beep Options...     │█"
  315.             TEXT "│Default Folders...  │█"
  316.             TEXT "│Measurement...      │█"
  317.             TEXT "└────────────────────┘█"
  318.             TEXT "███████████████████████"
  319.  
  320.             SELECT 1,2,4,filemenu
  321.             SELECT 2,2,20,sf1
  322.             SELECT 3,2,20,backoptproc
  323.             SELECT 4,2,20,beepoptproc
  324.             SELECT 5,2,20,deffoldproc
  325.             SELECT 6,2,20,measproc
  326.             PEND
  327.  
  328.                 ;setup         
  329. backoptproc:    TYPE 0,84, "B"            ;setup,backup
  330. beepoptproc:    TYPE 0,84, "IB"        ;setup,initial,beep
  331. deffoldproc:    TYPE 0,84, "L"            ;setup,location
  332. measproc:        TYPE 0,84, "U"            ;setup,units
  333.  
  334. quitproc:        TYPE 0,65                ;exit
  335.  
  336. editmenu:        POPUP 2,15,INVERSE
  337.  
  338.             TEXT "┌[Edit]──────────┐"
  339.             TEXT "│Undo              NA│█"
  340.             TEXT "│Cut (and Move Block)│█"
  341.             TEXT "│Copy         (Block)│█"
  342.             TEXT "│Paste(Last Blk Move)│█"
  343.             TEXT "│Append   (Block to)│█"
  344.             TEXT "│Undelete...         │█"
  345.             TEXT "│Typeover/Insert     │█"
  346.             TEXT "│Case Convert(Block)│█"
  347.             TEXT "│Insert Literal...   │█"
  348.             TEXT "│Select      (Block)│█"
  349.             TEXT "│Show/Hide Codes     │█"
  350.             TEXT "├─<WP 5.0>──────────┤█"
  351.             TEXT "│Delete             │█"
  352.             TEXT "│Move/Copy Item     │█"
  353.             TEXT "│Comment...          │█"
  354.             TEXT "└────────────────────┘█"
  355.             TEXT "███████████████████████"
  356.  
  357.             SELECT 1,2,4,macmenu
  358.             SELECT 2,2,20,notpossmsg
  359.             SELECT 3,2,20,cutproc
  360.             SELECT 4,2,20,copyproc
  361.             SELECT 5,2,20,pasteproc
  362.             SELECT 6,2,20,appeproc
  363.             SELECT 7,2,20,undelproc
  364.             SELECT 8,2,20,toverproc
  365.             SELECT 9,2,20,caseconvproc
  366.             SELECT 10,2,20,composehlp
  367.             SELECT 11,2,20,selectproc
  368.             SELECT 12,2,20,af3
  369.             SELECT 14,2,20,deleteproc
  370.             SELECT 15,2,20,movecopyproc
  371.             SELECT 16,2,20,cf5
  372.             PEND
  373.  
  374. cutproc:        MATCH 25,1,,"Block",cutcont,ctovr20
  375. ctovr20:    MATCH 25,11,,"Block",cutcont,blockmsg
  376. cutcont:        TYPE 0,97,"BM"            ;move,block,move
  377.  
  378. copyproc:        MATCH 25,1,,"Block",copycont,ctovr21
  379. ctovr21:    MATCH 25,11,,"Block",copycont,blockmsg
  380. copycont:        TYPE 0,97,"BC"            ;move,block,copy
  381.  
  382. pasteproc:    MATCH 25,1,,"Block",noblockmsg,ctovr22
  383. ctovr22:    MATCH 25,11,,"Block",noblockmsg,pastecont
  384. pastecont:    TYPE 0,97, "R"        ;move,retrieve
  385.  
  386. appeproc:        MATCH 25,1,,"Block",appecont,ctovr23
  387. ctovr23:    MATCH 25,11,,"Block",appecont,blockmsg
  388. appecont:        POPUP 7,22,INVERSE
  389.  
  390.             TEXT "┌[Append]────────┐"
  391.             TEXT "│To Clipboard      NA│█"
  392.             TEXT "│To File...          │█"
  393.             TEXT "└────────────────────┘█"
  394.             TEXT "███████████████████████"
  395.  
  396.             SELECT 1,2,4,editmenu
  397.             SELECT 2,2,20,notpossmsg
  398.             SELECT 3,2,20,afileproc
  399.             PEND
  400.  
  401. afileproc:    TYPE 0,97, "BA"        ;move,block,append...
  402.  
  403. undelproc:    MATCH 25,1,,"Block",noblockmsg,ctovr24
  404. ctovr24:    MATCH 25,11,,"Block",noblockmsg,f1
  405.                 ;cancel...
  406.  
  407. toverproc:    TYPE 0,82                ;insert toggle
  408.  
  409. caseconvproc:    MATCH 25,1,,"Block",caseconvcont,ctovr25
  410. ctovr25:    MATCH 25,11,,"Block",caseconvcont,blockmsg
  411. caseconvcont:    POPUP 10,22,INVERSE
  412.  
  413.             TEXT "┌[Case Convert]──┐"
  414.             TEXT "│To UPPER            │█"
  415.             TEXT "│To lower            │█"
  416.             TEXT "└────────────────────┘█"
  417.             TEXT "███████████████████████"
  418.  
  419.             SELECT 1,2,4,editmenu
  420.             SELECT 2,2,20,upperproc
  421.             SELECT 3,2,20,lowerproc
  422.             PEND
  423.  
  424. upperproc:    TYPE 0,86, "U"            ;switch,upper
  425. lowerproc:    TYPE 0,86, "L"            ;switch,lower
  426.  
  427. selectproc:    MATCH 25,1,,"Block",noblockmsg,ctovr27
  428. ctovr27:    MATCH 25,11,,"Block",noblockmsg,selectcont
  429. selectcont:    POPUP 12,22,INVERSE
  430.  
  431.             TEXT "┌[Select]────────┐"
  432.             TEXT "│Select On/Off     NA│█"
  433.             TEXT "│Sentence            │█"
  434.             TEXT "│Paragraph           │█"
  435.             TEXT "│Page                │█"
  436.             TEXT "│Column              │█"
  437.             TEXT "│All                 │█"
  438.             TEXT "└────────────────────┘█"
  439.             TEXT "███████████████████████"
  440.  
  441.             SELECT 1,2,4,editmenu
  442.             SELECT 2,2,20,notpossmsg
  443.             SELECT 3,2,20,sentproc
  444.             SELECT 4,2,20,paraproc
  445.             SELECT 5,2,20,pageproc
  446.             SELECT 6,2,20,bcolproc
  447.             SELECT 7,2,20,allproc
  448.             PEND
  449.  
  450. sentproc:        EXECUTE getsent,f1
  451. getsent:        TYPE 0,97, "SA"    ;move,sentence,append,cancel
  452.  
  453. paraproc:        EXECUTE getpara,f1
  454. getpara:        TYPE 0,97, "PA"    ;move,paragraph,append,cancel
  455.  
  456. pageproc:        EXECUTE getpage,f1
  457. getpage:        TYPE 0,97, "aA"    ;move,page,append,cancel
  458.  
  459. bcolproc:        TYPE 0,113, "CLMN",ENTER    ;macro to select column
  460. allproc:        TYPE 0,113, "ALL",ENTER    ;macro to select all
  461.  
  462. movecopyproc:    MATCH 25,1,,"Block",noblockmsg,ctovr28
  463. ctovr28:    MATCH 25,11,,"Block",noblockmsg,movecopycont
  464. movecopycont:    POPUP 15,22,INVERSE
  465.  
  466.             TEXT "┌[Move/Copy Item]┐"
  467.             TEXT "│Sentence            │█"
  468.             TEXT "│Paragraph           │█"
  469.             TEXT "│Page                │█"
  470.             TEXT "│Retrieve            │█"
  471.             TEXT "└────────────────────┘█"
  472.             TEXT "███████████████████████"
  473.  
  474.             SELECT 1,2,4,editmenu
  475.             SELECT 2,2,20,mcsentproc
  476.             SELECT 3,2,20,mcparaproc
  477.             SELECT 4,2,20,mcpageproc
  478.             SELECT 5,2,20,mcretrproc
  479.             PEND
  480.  
  481. mcsentproc:    TYPE 0,97, "S"        ;move,sentence
  482. mcparaproc:    TYPE 0,97, "P"        ;move,paragraph
  483. mcpageproc:    TYPE 0,97, "a"        ;move,page
  484. mcretrproc:    TYPE 0,97, "R"        ;move,retrieve
  485.  
  486. deleteproc:    POPUP 14,22,INVERSE
  487.  
  488.             TEXT "┌[Delete]────────┐"
  489.             TEXT "│Block               │█"
  490.             TEXT "│Word                │█"
  491.             TEXT "│To End of Line      │█"
  492.             TEXT "│To End of Page      │█"
  493.             TEXT "│To Word Beginning   │█"
  494.             TEXT "│To Word End         │█"
  495.             TEXT "└────────────────────┘█"
  496.             TEXT "███████████████████████"
  497.  
  498.             SELECT 1,2,4,editmenu
  499.             SELECT 2,2,20,delblkproc
  500.             SELECT 3,2,20,delwordproc
  501.             SELECT 4,2,20,deleolproc
  502.             SELECT 5,2,20,deleopproc
  503.             SELECT 6,2,20,delwbproc
  504.             SELECT 7,2,20,delweproc
  505.             PEND
  506.  
  507. delblkproc:    MATCH 25,1,,"Block",delblkcont,ctovr29
  508. ctovr29:    MATCH 25,11,,"Block",delblkcont,blockmsg
  509. delblkcont:        TYPE 0,97,"BD"            ;move,block,delete
  510.  
  511. delwordproc:    TYPE 0,113, "DELWORD",ENTER    ;^backspace macro
  512.  
  513. deleolproc:    TYPE 0,117            ;^end
  514.  
  515. deleopproc:    TYPE 0,118            ;^pgdn
  516.  
  517. delwbproc:    MATCH 25,1,,"Block",noblockmsg,ctovr33
  518. ctovr33:    MATCH 25,11,,"Block",noblockmsg,delwbcont
  519. delwbcont:    EXECUTE hm,backspc        ;home,backspace
  520. hm:            TYPE 0,71                ;home
  521.  
  522. delweproc:    MATCH 25,1,,"Block",noblockmsg,ctovr34
  523. ctovr34:    MATCH 25,11,,"Block",noblockmsg,delwecont
  524. delwecont:    EXECUTE hm,del            ;home,delete
  525. del:            TYPE 0,83                ;delete
  526.  
  527. searchmenu:    POPUP 2,21, INVERSE
  528.  
  529.             TEXT "┌[Search]────────┐"
  530.             TEXT "│Forward...          │█"
  531.             TEXT "│Backward...         │█"
  532.             TEXT "│Replace...          │█"
  533.             TEXT "│Goto...             │█"
  534.             TEXT "└────────────────────┘█"
  535.             TEXT "███████████████████████"
  536.  
  537.             SELECT 1,2,4,macmenu
  538.             SELECT 2,2,20,f2
  539.             SELECT 3,2,20,sf2
  540.             SELECT 4,2,20,af2
  541.             SELECT 5,2,20,gotoproc
  542.             PEND
  543.  
  544. gotoproc:        TYPE 0,119            ;goto
  545.  
  546. formatmenu:    POPUP 2,29,INVERSE
  547.  
  548.             TEXT "┌[Format]────────┐"
  549.             TEXT "│Show Ruler          │█"
  550.             TEXT "│Copy Ruler        NA│█"
  551.             TEXT "│Columns            │█"
  552.             TEXT "│Page               │█"
  553.             TEXT "│Paragraph          │█"
  554.             TEXT "│Line               │█"
  555.             TEXT "│Characters         │█"    
  556.             TEXT "├─<WP 5.0>──────────┤█"
  557.             TEXT "│Document...         │█"
  558.             TEXT "│Other...            │█"
  559.             TEXT "│Tab Align           │█"
  560.             TEXT "└────────────────────┘█"
  561.             TEXT "███████████████████████"
  562.  
  563.             SELECT 1,2,4,macmenu
  564.             SELECT 2,2,20,rulerproc
  565.             SELECT 3,2,20,notpossmsg
  566.             SELECT 4,2,20,colfproc
  567.             SELECT 5,2,20,pagefproc
  568.             SELECT 6,2,20,parafproc
  569.             SELECT 7,2,20,linefproc
  570.             SELECT 8,2,20,styleproc
  571.             SELECT 10,2,20,docfproc
  572.             SELECT 11,2,20,otherfproc
  573.             SELECT 12,2,20,cf6
  574.             PEND
  575.  
  576. rulerproc:    MATCH 25,1,,"Block",noblockmsg,ctovr35
  577. ctovr35:    MATCH 25,11,,"Block",noblockmsg,rulercont
  578. rulercont:     TYPE 0,91,"1T"            ;format,line,tab set
  579.  
  580. colfproc:        POPUP 5,36,INVERSE
  581.  
  582.             TEXT "┌[Columns]───────┐"
  583.             TEXT "│Columns On/Off      │█"
  584.             TEXT "│Column Options...   │█"
  585.             TEXT "└────────────────────┘█"
  586.             TEXT "███████████████████████"
  587.  
  588.             SELECT 1,2,4,formatmenu
  589.             SELECT 2,2,20,colonproc
  590.             SELECT 3,2,20,af7
  591.             PEND
  592.  
  593. colonproc:    TYPE 0,110, "C"        ;math/columns on/off toggle
  594.  
  595. pagefproc:    POPUP 6,36,INVERSE
  596.  
  597.             TEXT "┌[Page]──────────┐"
  598.             TEXT "│Page Layout...      │█"
  599.             TEXT "│Page Numbers...     │█"
  600.             TEXT "│Suppress Format...  │█"
  601.             TEXT "│Headers-Footers...  │█"
  602.             TEXT "│Conditional EOP...  │█"
  603.             TEXT "│Block Protect       │█"
  604.             TEXT "│Widow-Orphan        │█"
  605.             TEXT "└────────────────────┘█"
  606.             TEXT "███████████████████████"
  607.  
  608.             SELECT 1,2,4,formatmenu
  609.             SELECT 2,2,20,fppglayproc
  610.             SELECT 3,2,20,fppglayproc
  611.             SELECT 4,2,20,fpsfproc
  612.             SELECT 5,2,20,fppglayproc
  613.             SELECT 6,2,20,fpceopproc
  614.             SELECT 7,2,20,fpbpproc
  615.             SELECT 8,2,20,fpwoproc
  616.             PEND
  617.  
  618. fppglayproc:    MATCH 25,1,,"Block",noblockmsg,ctovr37
  619. ctovr37:    MATCH 25,11,,"Block",noblockmsg,fppglaycont
  620. fppglaycont:    TYPE 0,91, "P"        ;format,page
  621.  
  622. fpsfproc:        MATCH 25,1,,"Block",noblockmsg,ctovr38
  623. ctovr38:    MATCH 25,11,,"Block",noblockmsg,fpsfcont
  624. fpsfcont:        TYPE 0,91, "Pu"    ;format,page,suppress this page only
  625.  
  626. fpceopproc:    MATCH 25,1,,"Block",noblockmsg,ctovr39
  627. ctovr39:    MATCH 25,11,,"Block",noblockmsg,fpceopcont
  628. fpceopcont:    TYPE 0,91, "OC"    ;format,other,ceop
  629.  
  630. fpbpproc:        MATCH 25,1,,"Block",sf8,ctovr40
  631. ctovr40:    MATCH 25,11,,"Block",sf8,blockmsg
  632.            ;block on,format,block protect
  633.  
  634. fpwoproc:        MATCH 25,1,,"Block",noblockmsg,ctovr41
  635. ctovr41:    MATCH 25,11,,"Block",noblockmsg,fpwocont
  636. fpwocont:        TYPE 0,91, "LW"    ;format,line,widow/orphan
  637.  
  638. parafproc:    MATCH 25,1,,"Block",noblockmsg,ctovr42
  639. ctovr42:    MATCH 25,11,,"Block",noblockmsg,parafcont
  640. parafcont:    POPUP 7,36,INVERSE
  641.  
  642.             TEXT "┌[Paragraph]─────┐"
  643.             TEXT "│Outline             │█"
  644.             TEXT "│Paragraph Numbers...│█"
  645.             TEXT "│Paragraph Num Def...│█"
  646.             TEXT "│Indent              │█"
  647.             TEXT "│Left-Right Indent   │█"
  648.             TEXT "└────────────────────┘█"
  649.             TEXT "███████████████████████"
  650.  
  651.             SELECT 1,2,4,formatmenu
  652.             SELECT 2,2,20,froutlnproc
  653.             SELECT 3,2,20,frrnproc
  654.             SELECT 4,2,20,frrndproc
  655.             SELECT 5,2,20,f4
  656.             SELECT 6,2,20,sf4
  657.             PEND
  658.  
  659. froutlnproc:    TYPE 0,88, "O"        ;date/outline,outline
  660. frrnproc:        TYPE 0,88, "P"        ;date/outline,paragraph numbers
  661. frrndproc:    TYPE 0,88, "D"        ;date/outline,para num def
  662.  
  663. linefproc:    POPUP 8,36,INVERSE
  664.  
  665.             TEXT "┌[Line]──────────┐"
  666.             TEXT "│Center              │█"
  667.             TEXT "│Flush Right         │█"
  668.             TEXT "│Tabs...             │█"
  669.             TEXT "│Hyphenation...      │█"
  670.             TEXT "│Spacing...          │█"
  671.             TEXT "│Kerning...          │█"
  672.             TEXT "├─<WP 5.0>──────────┤█"
  673.             TEXT "│L/R Margin...       │█"
  674.             TEXT "│<Margin Release     │█"
  675.             TEXT "│Justification...    │█"
  676.             TEXT "└────────────────────┘█"
  677.             TEXT "███████████████████████"
  678.  
  679.             SELECT 1,2,4,formatmenu
  680.             SELECT 2,2,20,sf6
  681.             SELECT 3,2,20,af6
  682.             SELECT 4,2,20,fltabproc
  683.             SELECT 5,2,20,flhyproc
  684.             SELECT 6,2,20,flspproc
  685.             SELECT 7,2,20,flkrnproc
  686.             SELECT 9,2,20,fllrmgnproc
  687.             SELECT 10,2,20,flmgnrelproc
  688.             SELECT 11,2,20,fljustproc
  689.             PEND
  690.  
  691. flcntrproc:    TYPE 0,89            ;center
  692. flfrproc:        TYPE 0,109        ;flush right
  693.  
  694. fltabproc:    MATCH 25,1,,"Block",noblockmsg,ctovr43
  695. ctovr43:    MATCH 25,11,,"Block",noblockmsg,fltabcont
  696. fltabcont:    TYPE 0,91, "LT"    ;format,line,tab set
  697.  
  698. flhyproc:        MATCH 25,1,,"Block",noblockmsg,ctovr44
  699. ctovr44:    MATCH 25,11,,"Block",noblockmsg,flhycont
  700. flhycont:        TYPE 0,91, "L"        ;format,line
  701.  
  702. fljustproc:        MATCH 25,1,,"Block",noblockmsg,ctovr44a
  703. ctovr44a:    MATCH 25,11,,"Block",noblockmsg,fljustcont
  704. fljustcont:        TYPE 0,91, "LJ"        ;format,line,justification
  705.  
  706. flspproc:        MATCH 25,1,,"Block",noblockmsg,ctovr45
  707. ctovr45:    MATCH 25,11,,"Block",noblockmsg,flspcont
  708. flspcont:        TYPE 0,91, "LS"    ;format,line spacing
  709.  
  710. flkrnproc:    MATCH 25,1,,"Block",noblockmsg,ctovr46
  711. ctovr46:    MATCH 25,11,,"Block",noblockmsg,flkrncont
  712. flkrncont:    TYPE 0,91, "OPK"    ;format,other,printer functions,kerning
  713.  
  714. fllrmgnproc:    MATCH 25,1,,"Block",noblockmsg,ctovr47
  715. ctovr47:    MATCH 25,11,,"Block",noblockmsg,fllrmgncont
  716. fllrmgncont:    TYPE 0,91, "LM"    ;format,line,margins
  717.  
  718. flmgnrelproc:    TYPE 0,113, "MGNREL",ENTER    ;shift tab (<mar rel) macro
  719.  
  720. docfproc:    MATCH 25,1,,"Block",noblockmsg,ctovr49
  721. ctovr49:    MATCH 25,11,,"Block",noblockmsg,docfcont
  722. docfcont:     TYPE 0,91,"D"            ;format,document
  723.  
  724. otherfproc:    MATCH 25,1,,"Block",noblockmsg,ctovr50
  725. ctovr50:    MATCH 25,11,,"Block",noblockmsg,otherfcont
  726. otherfcont:     TYPE 0,91,"O"            ;format,other
  727.  
  728. fontmenu:        POPUP 2,37,INVERSE
  729.  
  730.             TEXT "┌[Font]──────────┐"
  731.             TEXT "│Style              │█"
  732.             TEXT "│Font...             │█"
  733.             TEXT "└────────────────────┘█"
  734.             TEXT "███████████████████████"
  735.  
  736.             SELECT 1,2,4,macmenu
  737.             SELECT 2,2,20,styleproc
  738.             SELECT 3,2,20,cf8
  739.             PEND
  740.  
  741. styleproc:    POPUP 3,44,INVERSE
  742.  
  743.             TEXT "┌[Style]─────────┐"
  744.             TEXT "│Sizes...           │█"
  745.             TEXT "│Plain Text          │█"
  746.             TEXT "│Bold                │█"
  747.             TEXT "│Underline           │█"
  748.             TEXT "│Italics             │█"
  749.             TEXT "│Outline             │█"
  750.             TEXT "│Shadow              │█"
  751.             TEXT "│Superscript         │█"
  752.             TEXT "│Subscript           │█"
  753.             TEXT "│Overstrike          │█"
  754.             TEXT "│Strikeout           │█"
  755.             TEXT "│Redline             │█"
  756.             TEXT "├─<WP 5.0>──────────┤█"
  757.             TEXT "│Double Underline    │█"
  758.             TEXT "│Styles...           │█"
  759.             TEXT "└────────────────────┘█"
  760.             TEXT "███████████████████████"
  761.  
  762.             SELECT 1,2,4,fontmenu
  763.             SELECT 2,2,20,sizemenu
  764.             SELECT 3,2,20,ptproc 
  765.             SELECT 4,2,20,boproc
  766.             SELECT 5,2,20,unproc
  767.             SELECT 6,2,20,itproc
  768.             SELECT 7,2,20,otproc
  769.             SELECT 8,2,20,shproc
  770.             SELECT 9,2,20,spproc
  771.             SELECT 10,2,20,sbproc
  772.             SELECT 11,2,20,osproc
  773.             SELECT 12,2,20,stproc
  774.             SELECT 13,2,20,rdproc
  775.             SELECT 15,2,20,duproc
  776.             SELECT 16,2,20,af8
  777.             PEND
  778.  
  779. sizemenu:        POPUP 4,51,INVERSE
  780.  
  781.             TEXT "┌[Sizes]─────────┐"
  782.             TEXT "│Fine                │█"
  783.             TEXT "│Small               │█"
  784.             TEXT "│Large               │█"
  785.             TEXT "│Very Large          │█"
  786.             TEXT "│Extra Large         │█"
  787.             TEXT "└────────────────────┘█"
  788.             TEXT "███████████████████████"
  789.  
  790.             SELECT 1,2,4,styleproc
  791.             SELECT 2,2,20,fineproc 
  792.             SELECT 3,2,20,smallproc
  793.             SELECT 4,2,20,largeproc
  794.             SELECT 5,2,20,vlargeproc
  795.             SELECT 6,2,20,elargeproc
  796.             PEND
  797.  
  798. fineproc:        TYPE 0,101, "SF"    ;font,size,fine
  799. smallproc:    TYPE 0,101, "SS"    ;font,size,small
  800. largeproc:    TYPE 0,101, "SL"    ;font,size,large
  801. vlargeproc:    TYPE 0,101, "SV"    ;font,size,vry large
  802. elargeproc:    TYPE 0,101, "SE"    ;font,size,extra large
  803.  
  804. ptproc:        MATCH 25,1,,"Block",normalfontmsg,ctovr52
  805. ctovr52:    MATCH 25,11,,"Block",normalfontmsg,ptcont
  806. ptcont:        TYPE 0,101, "N"    ;font,normal
  807.  
  808. boproc:        TYPE 0,101, "AB"    ;bold
  809. unproc:        TYPE 0,101, "AU"    ;underline
  810. itproc:        TYPE 0,101, "AI"    ;italic
  811. otproc:        TYPE 0,101, "AO"    ;outline
  812. shproc:        TYPE 0,101, "Aa"    ;shadow
  813. spproc:        TYPE 0,101, "Sp"    ;superscript
  814. sbproc:        TYPE 0,101, "Sb"    ;subscript
  815.  
  816. osproc:    MATCH 25,1,,"Block",noblockmsg,ctovr53
  817. ctovr53:    MATCH 25,11,,"Block",noblockmsg,oscont
  818. oscont:        TYPE 0,91, "OO"    ;format,other,overstrike
  819.  
  820. stproc:        TYPE 0,101, "AS"    ;strikeout
  821. rdproc:        TYPE 0,101, "AR"    ;redline
  822. duproc:        TYPE 0,101, "AD"    ;double underline
  823.  
  824. specialmenu:    POPUP 2,43,INVERSE
  825.  
  826.             TEXT "┌[Special]───────┐"
  827.             TEXT "│Spell              │█"
  828.             TEXT "│Thesaurus...        │█"
  829.             TEXT "│Merge...            │█"
  830.             TEXT "│Merge Codes        │█"
  831.             TEXT "│Macro              │█"
  832.             TEXT "│Footnotes          │█"
  833.             TEXT "│Date                │█"
  834.             TEXT "│Mark Text          │█"
  835.             TEXT "│Define Lists       │█"
  836.             TEXT "│Screen             │█"
  837.             TEXT "├─<WP 5.0>──────────┤█"
  838.             TEXT "│Math...             │█"
  839.             TEXT "│Sort...             │█"
  840.             TEXT "│Graphics...         │█"
  841.             TEXT "│Line Draw...        │█"
  842.             TEXT "│Lock Document...    │█"
  843.             TEXT "│Convert Document... │█"
  844.             TEXT "└────────────────────┘█"
  845.             TEXT "███████████████████████"
  846.  
  847.             SELECT 1,2,4,macmenu
  848.             SELECT 2,2,20,spellproc
  849.             SELECT 3,2,20,af1
  850.             SELECT 4,2,20,mergeproc
  851.             SELECT 5,2,20,mercodeproc
  852.             SELECT 6,2,20,macroproc
  853.             SELECT 7,2,20,footproc
  854.             SELECT 8,2,20,sf5
  855.             SELECT 9,2,20,mrktxtproc
  856.             SELECT 10,2,20,deflstproc
  857.             SELECT 11,2,20,scrproc
  858.             SELECT 13,2,20,af7 
  859.             SELECT 14,2,20,cf9
  860.             SELECT 15,2,20,af9
  861.             SELECT 16,2,20,linedrawproc
  862.             SELECT 17,2,20,lockdocproc
  863.             SELECT 18,2,20,cf1
  864.             PEND
  865.  
  866. spellproc:    POPUP 3,50,INVERSE
  867.  
  868.             TEXT "┌[Spell]─────────┐"
  869.             TEXT "│Speller...          │█"
  870.             TEXT "│Check Selection(Blk)│█"
  871.             TEXT "│Check Page...       │█"
  872.             TEXT "│Check Document...   │█"
  873.             TEXT "│Change Dictionary...│█"
  874.             TEXT "│Count...            │█"
  875.             TEXT "│Lookup...           │█"
  876.             TEXT "├─<WP 5.0>──────────┤█"
  877.             TEXT "│Check Word...       │█"
  878.             TEXT "└────────────────────┘█"
  879.             TEXT "███████████████████████"
  880.  
  881.             SELECT 1,2,4,specialmenu
  882.             SELECT 2,2,20,cf2 
  883.             SELECT 3,2,20,chkselproc
  884.             SELECT 4,2,20,chkpageproc
  885.             SELECT 5,2,20,chkdocproc
  886.             SELECT 6,2,20,changedictproc
  887.             SELECT 7,2,20,countproc
  888.             SELECT 8,2,20,lookupproc
  889.             SELECT 10,2,20,chkwordproc
  890.             PEND
  891.  
  892. chkselproc:    MATCH 25,1,,"Block",cf2,ctovr58a
  893. ctovr58a:    MATCH 25,11,,"Block",cf2,blockmsg
  894.             ;spell
  895.  
  896. chkpageproc:        TYPE 0,95, "P"        ;spell,page
  897. chkdocproc:        TYPE 0,95, "D"        ;spell,document
  898. changedictproc:    TYPE 0,95, "N"        ;spell,new sup. dict.
  899. countproc:        TYPE 0,95, "C"        ;spell,count
  900. lookupproc:        TYPE 0,95, "L"        ;spell,lookup
  901. chkwordproc:        TYPE 0,95, "W"        ;spell,word
  902.  
  903. mergeproc:    MATCH 25,1,,"Block",noblockmsg,ctovr55
  904. ctovr55:    MATCH 25,11,,"Block",noblockmsg,mergecont
  905. mergecont:    TYPE 0,102, "M"        ;merge,merge
  906.  
  907. mercodeproc:    POPUP 6,50,INVERSE
  908.  
  909.             TEXT "┌[Merge Codes]───┐"
  910.             TEXT "│From Keyboard     ^C│█"
  911.             TEXT "│Date              ^D│█"
  912.             TEXT "│End of Record     ^E│█"
  913.             TEXT "│Retrieve Field   ^Fn│█"
  914.             TEXT "│Invoke Macro      ^G│█"
  915.             TEXT "│Next Record       ^N│█"
  916.             TEXT "│New Primary       ^P│█"
  917.             TEXT "│Stop Merge        ^Q│█"
  918.             TEXT "│End of Field      ^R│█"
  919.             TEXT "│New Secondary     ^S│█"
  920.             TEXT "│To Printer        ^T│█"
  921.             TEXT "│Update Screen     ^U│█"
  922.             TEXT "│Transfer Codes    ^V│█"
  923.             TEXT "├─<WP 5.0>──────────┤█"
  924.             TEXT "│Status Line Msg   ^O│█"
  925.             TEXT "└────────────────────┘█"
  926.             TEXT "███████████████████████"
  927.  
  928.             SELECT 1,2,4,specialmenu
  929.             SELECT 2,2,20,frmkbdproc
  930.             SELECT 3,2,20,dtproc 
  931.             SELECT 4,2,20,eorproc
  932.             SELECT 5,2,20,rfproc
  933.             SELECT 6,2,20,improc
  934.             SELECT 7,2,20,nrproc
  935.             SELECT 8,2,20,npproc
  936.             SELECT 9,2,20,smproc
  937.             SELECT 10,2,20,eofproc
  938.             SELECT 11,2,20,nsproc
  939.             SELECT 12,2,20,tpproc
  940.             SELECT 13,2,20,usproc
  941.             SELECT 14,2,20,tcproc
  942.             SELECT 16,2,20,stlnmproc
  943.             PEND
  944.  
  945. frmkbdproc:    TYPE 0,92, "C"    ;keyboard
  946. dtproc:        TYPE 0,92, "D"    ;date
  947. eorproc:        TYPE 0,92, "E"    ;end of record
  948. rfproc:        TYPE 0,92, "F"    ;merge from field <n>
  949. improc:        TYPE 0,92, "G"    ;invoke macro <macroname>
  950. nrproc:        TYPE 0,92, "N"    ;next record
  951. npproc:        TYPE 0,92, "P"    ;new primary file
  952. smproc:        TYPE 0,92, "Q"    ;stop merge
  953. eofproc:        TYPE 0,92, "R"    ;end of field
  954. nsproc:        TYPE 0,92, "S"    ;new secondary file
  955. tpproc:        TYPE 0,92, "T"    ;to printer
  956. usproc:        TYPE 0,92, "U"    ;update screen
  957. tcproc:        TYPE 0,92, "V"    ;transfer codes
  958. stlnmproc:    TYPE 0,92, "O"    ;status line message
  959.  
  960. macroproc:    POPUP 7,50,INVERSE    
  961.  
  962.             TEXT "┌[Macro]─────────┐"
  963.             TEXT "│Define Macro...     │█"
  964.             TEXT "│Execute macro...    │█"
  965.             TEXT "│Chain Macro...      │█"
  966.             TEXT "│Macro Delay...      │█"
  967.             TEXT "│Macro Input...      │█"
  968.             TEXT "│Pause Macro...      │█"
  969.             TEXT "└────────────────────┘█"
  970.             TEXT "███████████████████████"
  971.  
  972.             SELECT 1,2,4,specialmenu
  973.             SELECT 2,2,20,cf10
  974.             SELECT 3,2,20,af10
  975.             SELECT 4,2,20,cf10
  976.             SELECT 5,2,20,macinpproc
  977.             SELECT 6,2,20,macinpproc
  978.             SELECT 7,2,20,macinpproc
  979.             PEND
  980.  
  981. macinpproc:    MATCH 25,1,,"Selection: a",macinpcont,checkcapa
  982. checkcapa:    MATCH 25,1,,"Selection: A",macinpcont,macroeditmsg
  983. macinpcont:    TYPE 0,132     ;macro commands(^PgUp)
  984.  
  985. footproc:        POPUP 8,50,INVERSE
  986.  
  987.             TEXT "┌[Footnotes]─────┐"
  988.             TEXT "│Create...           │█"
  989.             TEXT "│Edit...             │█"
  990.             TEXT "│New Number...       │█"
  991.             TEXT "│Options...          │█"
  992.             TEXT "│Create Endnote...   │█"
  993.             TEXT "│Edit Endnote...     │█"
  994.             TEXT "└────────────────────┘█"
  995.             TEXT "███████████████████████"
  996.  
  997.             SELECT 1,2,4,specialmenu
  998.             SELECT 2,2,20,crftntproc
  999.             SELECT 3,2,20,edtftntproc
  1000.             SELECT 4,2,20,nfnproc
  1001.             SELECT 5,2,20,foptproc
  1002.             SELECT 6,2,20,crendntproc
  1003.             SELECT 7,2,20,edtendntproc
  1004.             PEND
  1005.  
  1006. crftntproc:    TYPE 0,100,"FC"    ;footnote,create
  1007. edtftntproc:    TYPE 0,100,"FE"    ;footnote,edit
  1008. nfnproc:        TYPE 0,100,"FN"    ;footnote,new number
  1009. foptproc:        TYPE 0,100,"FO"    ;footnote,options
  1010. crendntproc:    TYPE 0,100,"EC"    ;endnote,create
  1011. edtendntproc:    TYPE 0,100,"EE"    ;endnote,edit
  1012.  
  1013. mrktxtproc:    POPUP 10,50,INVERSE
  1014.  
  1015.             TEXT "┌[Mark Text]─────┐"
  1016.             TEXT "│List...      (Block)│█"
  1017.             TEXT "│Table of Contents...│█"
  1018.             TEXT "│Index...     (Block)│█"
  1019.             TEXT "│Remove...           │█"
  1020.             TEXT "│Generate...         │█"
  1021.             TEXT "├─<WP 5.0>──────────┤█"
  1022.             TEXT "│Master/Sub Document │█"
  1023.             TEXT "│Auto Reference...   │█"
  1024.             TEXT "│Table of Authorities│█"
  1025.             TEXT "└────────────────────┘█"
  1026.             TEXT "███████████████████████"
  1027.  
  1028.             SELECT 1,2,4,specialmenu
  1029.             SELECT 2,2,20,mtlistproc
  1030.             SELECT 3,2,20,mttocproc
  1031.             SELECT 4,2,20,mtinproc
  1032.             SELECT 5,2,20,mtrmproc
  1033.             SELECT 6,2,20,mtgnproc
  1034.             SELECT 8,2,20,mtmsdproc
  1035.             SELECT 9,2,20,mtarproc
  1036.             SELECT 10,2,20,mttoaproc
  1037.             PEND
  1038.  
  1039. mtlistproc:    MATCH 25,1,,"Block",mtlcont,ctovr58
  1040. ctovr58:    MATCH 25,11,,"Block",mtlcont,blockmsg
  1041. mtlcont:        TYPE 0,108, "L"    ;block mark text,lists
  1042.  
  1043. mttocproc:    MATCH 25,1,,"Block",mttoccont,ctovr59
  1044. ctovr59:    MATCH 25,11,,"Block",mttoccont,blockmsg
  1045. mttoccont:    TYPE 0,108, "C"    ;block mark text,ToC
  1046.  
  1047. mtinproc:        MATCH 25,1,,"Block",mtincont,ctovr60
  1048. ctovr60:    MATCH 25,11,,"Block",mtincont,blockmsg
  1049. mtincont:        TYPE 0,108, "I"    ;block mark text,index
  1050.  
  1051. mtrmproc:        MATCH 25,1,,"Block",noblockmsg,ctovr61
  1052. ctovr61:    MATCH 25,11,,"Block",noblockmsg,mtrmcont
  1053. mtrmcont:        TYPE 0,108, "GR"    ;mark text,generate,remove
  1054.  
  1055. mtgnproc:        MATCH 25,1,,"Block",noblockmsg,ctovr62
  1056. ctovr62:    MATCH 25,11,,"Block",noblockmsg,mtgncont
  1057. mtgncont:        TYPE 0,108, "G"    ;mark text,generate
  1058.  
  1059. mtmsdproc:    MATCH 25,1,,"Block",noblockmsg,ctovr63
  1060. ctovr63:    MATCH 25,11,,"Block",noblockmsg,mtmsdcont
  1061. mtmsdcont:        TYPE 0,108, "S"    ;mark text,subdocument
  1062.  
  1063. mtarproc:        MATCH 25,1,,"Block",noblockmsg,ctovr64
  1064. ctovr64:    MATCH 25,11,,"Block",noblockmsg,mtarcont
  1065. mtarcont:        TYPE 0,108, "R"    ;mark text,auto reference
  1066.  
  1067. mttoaproc:    TYPE 0,108, "A"    ;mark text,table of auth (block on/off)
  1068.  
  1069. deflstproc:    MATCH 25,1,,"Block",noblockmsg,ctovr65
  1070. ctovr65:    MATCH 25,11,,"Block",noblockmsg,deflstcont
  1071. deflstcont:    POPUP 11,50,INVERSE
  1072.  
  1073.             TEXT "┌[Define Lists]──┐"
  1074.             TEXT "│List 1...           │█"
  1075.             TEXT "│List 2...           │█"
  1076.             TEXT "│List 3...           │█"
  1077.             TEXT "│List 4...           │█"
  1078.             TEXT "│List 5...           │█"
  1079.             TEXT "│Table of Contents...│█"
  1080.             TEXT "│Index...            │█"
  1081.             TEXT "└────────────────────┘█"
  1082.             TEXT "███████████████████████"
  1083.  
  1084.             SELECT 1,2,4,specialmenu
  1085.             SELECT 2,2,20,dfl1proc
  1086.             SELECT 3,2,20,dfl2proc
  1087.             SELECT 4,2,20,dfl3proc
  1088.             SELECT 5,2,20,dfl4proc
  1089.             SELECT 6,2,20,dfl5proc
  1090.             SELECT 7,2,20,dftocproc
  1091.             SELECT 8,2,20,dfinproc
  1092.             PEND
  1093.  
  1094. dfl1proc:        TYPE 0,108, "DL1"    ;mark text,define,lists,1
  1095. dfl2proc:        TYPE 0,108, "DL2"    ;mark text,define,lists,2
  1096. dfl3proc:        TYPE 0,108, "DL3"    ;mark text,define,lists,3
  1097. dfl4proc:        TYPE 0,108, "DL4"    ;mark text,define,lists,4
  1098. dfl5proc:        TYPE 0,108, "DL5"    ;mark text,define,lists,5
  1099. dftocproc:    TYPE 0,108, "DC"    ;mark text,define,ToC
  1100. dfinproc:        TYPE 0,108, "DI"    ;mark text,define,index
  1101.  
  1102. scrproc:        POPUP 12,50,INVERSE
  1103.  
  1104.             TEXT "┌[Screen]────────┐"
  1105.             TEXT "│Full/Split Window   │█"
  1106.             TEXT "│Show/Hide PositionNA│█"
  1107.             TEXT "│Display Justif.   NA│█"
  1108.             TEXT "│Colors...           │█"
  1109.             TEXT "└────────────────────┘█"
  1110.             TEXT "███████████████████████"
  1111.  
  1112.             SELECT 1,2,4,specialmenu
  1113.             SELECT 2,2,20,fullwinproc
  1114.             SELECT 3,2,20,notpossmsg
  1115.             SELECT 4,2,20,notpossmsg
  1116.             SELECT 5,2,20,colorsproc
  1117.             PEND
  1118.  
  1119. fullwinproc:        TYPE 0,96, "W"            ;screen,window
  1120.  
  1121. colorsproc:        TYPE 0,84, "DCS"    ;setup,display,colors,screen
  1122.  
  1123. linedrawproc:    TYPE 0,96, "L"        ;screen,line draw
  1124.  
  1125. lockdocproc:    MATCH 25,1,,"Block",noblockmsg,ctovr70
  1126. ctovr70:    MATCH 25,11,,"Block",noblockmsg,lockdoccont
  1127. lockdoccont:    TYPE 0,98, "P"        ;text in/out,password
  1128.  
  1129. windowsmenu:    POPUP 2,52,INVERSE
  1130.  
  1131.             TEXT "┌[Windows]───────┐"
  1132.             TEXT "│Cycle Windows       │█"
  1133.             TEXT "│Show Clipboard    NA│█"
  1134.             TEXT "└────────────────────┘█"
  1135.             TEXT "███████████████████████"
  1136.  
  1137.             SELECT 1,2,4,macmenu
  1138.             SELECT 2,2,20,wincycproc
  1139.             SELECT 3,2,20,notpossmsg
  1140.             PEND
  1141.  
  1142. wincycproc:    MATCH 25,1,,"Block",noblockmsg,ctovr71
  1143. ctovr71:    MATCH 25,11,,"Block",noblockmsg,sf3
  1144.                 ;switch to doc 2
  1145.  
  1146. blockmsg:        POPUP 9,27,INVERSE
  1147.  
  1148.             TEXT "╔══════════════════════╗"
  1149.             TEXT "║  SELECT BLOCK FIRST! ║█"
  1150.             TEXT "║      ┌────────┐      ║█"
  1151.             TEXT "║      │ CANCEL │      ║█"
  1152.             TEXT "║      └────────┘      ║█"
  1153.             TEXT "╚══════════════════════╝█"
  1154.             TEXT "█████████████████████████"
  1155.  
  1156.             SELECT 4,10,6,exitcancel
  1157.             PEND
  1158.  
  1159. exitcancel:    EXECUTE f7,f1
  1160.  
  1161. noblockmsg:    POPUP 9,27,INVERSE
  1162.  
  1163.             TEXT "╔══════════════════════╗"
  1164.             TEXT "║     BLOCK MUST BE    ║█"
  1165.             TEXT "║   OFF BEFORE USING   ║█"
  1166.             TEXT "║     THIS COMMAND     ║█"
  1167.             TEXT "║      ┌────────┐      ║█"
  1168.             TEXT "║      │ CANCEL │      ║█"
  1169.             TEXT "║      └────────┘      ║█"
  1170.             TEXT "╚══════════════════════╝█"
  1171.             TEXT "█████████████████████████"
  1172.  
  1173.             SELECT 6,10,6,exitcancel
  1174.             PEND
  1175.  
  1176. macroeditmsg:    POPUP 9,25,INVERSE
  1177.  
  1178.             TEXT "╔══════════════════════════╗"
  1179.             TEXT "║    YOU MUST BE EDITING   ║█"
  1180.             TEXT "║  A MACRO'S ACTION TO USE ║█"
  1181.             TEXT "║      THIS COMMAND!       ║█"
  1182.             TEXT "║        ┌────────┐        ║█"
  1183.             TEXT "║        │ CANCEL │        ║█"
  1184.             TEXT "║        └────────┘        ║█"
  1185.             TEXT "╚══════════════════════════╝█"
  1186.             TEXT "█████████████████████████████"
  1187.  
  1188.             SELECT 6,12,6,exitcancel
  1189.             PEND
  1190.  
  1191. normalfontmsg:        POPUP 9,23,INVERSE
  1192.  
  1193.             TEXT "╔══════════════════════════════╗"
  1194.             TEXT "║  USE SHOW/HIDE CODES TOGGLE  ║█"
  1195.             TEXT "║  THEN ADD OR DELETE CODES AS ║█"
  1196.             TEXT "║    REQUIRED FOR PLAIN TEXT   ║█"
  1197.             TEXT "║  ┌────────────────────────┐  ║█"
  1198.             TEXT "║  │    GO TO EDIT MENU     │  ║█"
  1199.             TEXT "║  │(TO SELECT <SHOW CODES>)│  ║█"
  1200.             TEXT "║  └────────────────────────┘  ║█"
  1201.             TEXT "╚══════════════════════════════╝█"
  1202.             TEXT "█████████████████████████████████"
  1203.  
  1204.             SELECT 6,9,15,editmenu
  1205.             PEND
  1206.  
  1207. notpossmsg:        POPUP 9,24,INVERSE
  1208.  
  1209.             TEXT "╔════════════════════════════╗"
  1210.             TEXT "║ THIS WP MAC 1.0.1 FUNCTION ║█"
  1211.             TEXT "║  HAS NO EXACT EQUIVALENT   ║█"
  1212.             TEXT "║    IN WORDPERFECT 5.0      ║█"
  1213.             TEXT "║  ┌─────────────────────┐   ║█"
  1214.             TEXT "║  │ RETURN TO MAIN MENU │   ║█"
  1215.             TEXT "║  └─────────────────────┘   ║█"
  1216.             TEXT "╚════════════════════════════╝█"
  1217.             TEXT "███████████████████████████████"
  1218.  
  1219.             SELECT 6,6,19,macmenu
  1220.             PEND
  1221.  
  1222. aboutmsg:        POPUP 1,24,INVERSE
  1223.  
  1224.             TEXT "╔═════════════════════════════╗"
  1225.             TEXT "║  **  WP5MACMENU 3.1 (c) **  ║█"
  1226.             TEXT "║ WPMAC 1.0.2/Windows(R)-like ║█"
  1227.             TEXT "║      menu system for        ║█"
  1228.             TEXT "║   WordPerfect 5.0 (R) and   ║█"
  1229.             TEXT "║ LOGITECH (R) 2 button mouse ║█"
  1230.             TEXT "║by Dave Petherick (73627,226)║█"
  1231.             TEXT "║**REGISTER THIS SHAREWARE!!**║█"
  1232.             TEXT "║         ┌────────┐          ║█"
  1233.             TEXT "║ MAY/89  │ RETURN │ Ver. 3.1 ║█"
  1234.             TEXT "║         └────────┘          ║█"
  1235.             TEXT "║      Windows (R) is a       ║█"
  1236.             TEXT "║   registered trademark of   ║█"
  1237.             TEXT "║    Microsoft Corporation    ║█"
  1238.             TEXT "║    Redmond, WA, U.S.A.      ║█"
  1239.             TEXT "║    WordPerfect (R) is a     ║█"
  1240.             TEXT "║   registered trademark of   ║█"
  1241.             TEXT "║   WordPerfect Corporation   ║█"
  1242.             TEXT "║     Orem, Utah, U.S.A.      ║█"
  1243.             TEXT "║      LOGITECH (R) is a      ║█"
  1244.             TEXT "║   registered trademark of   ║█"
  1245.             TEXT "║      LOGITECH U.S.A.        ║█"
  1246.             TEXT "║     Fremont,CA, U.S.A.      ║█"
  1247.             TEXT "╚═════════════════════════════╝█"
  1248.             TEXT "████████████████████████████████"
  1249.  
  1250.             SELECT 8,4,25,sharewaremsg
  1251.             SELECT 10,13,6,helpmenu1
  1252.             PEND
  1253.  
  1254. sharewaremsg:        POPUP 2,21,INVERSE
  1255.  
  1256.             TEXT "╔════════════════════════════════════╗"
  1257.             TEXT "║    Please help encourage the       ║█"
  1258.             TEXT "║    development of this and         ║█"
  1259.             TEXT "║    similar software by registering ║█"
  1260.             TEXT "║    your copy.  Feel free to copy   ║█"
  1261.             TEXT "║    and distribute this software    ║█"
  1262.             TEXT "║    (UNMODIFIED) and if you find    ║█"
  1263.             TEXT "║    it of value, support it!        ║█"
  1264.             TEXT "║                                    ║█"
  1265.             TEXT "║    For $10, register your copy     ║█"
  1266.             TEXT "║    of WP5MACMENU and you will      ║█"
  1267.             TEXT "║    be entitled to free periodic    ║█"
  1268.             TEXT "║     updates and an UNLIMITED       ║█"
  1269.             TEXT "║ SITE LICENCE for corporate users!! ║█"
  1270.             TEXT "║             ┌────────┐             ║█"
  1271.             TEXT "║             │  NEXT  │             ║█"
  1272.             TEXT "║             └────────┘             ║█"
  1273.             TEXT "║   Source .DEF file included free!  ║█"
  1274.             TEXT "║                                    ║█"
  1275.             TEXT "╚════════════════════════════════════╝█"
  1276.             TEXT "███████████████████████████████████████"
  1277.  
  1278.             SELECT 16,18,4,sharenextmsg
  1279.             PEND
  1280.  
  1281. sharenextmsg:        POPUP 3,21,INVERSE
  1282.  
  1283.             TEXT "╔════════════════════════════════════╗"
  1284.             TEXT "║***SUPPORT THE SHAREWARE CONCEPT****║█"
  1285.             TEXT "║  Send check or money order along   ║█"
  1286.             TEXT "║ with your mouse type,diskette size,║█"
  1287.             TEXT "║   WP5MACMENU version number and    ║█"
  1288.             TEXT "║     your mailing address to:       ║█"
  1289.             TEXT "║                                    ║█"
  1290.             TEXT "║          Dave Petherick            ║█"
  1291.             TEXT "║          P.O. Box 1002             ║█"
  1292.             TEXT "║        Tottenham, Ontario          ║█"
  1293.             TEXT "║          CANADA L0G 1W0            ║█"
  1294.             TEXT "║                                    ║█"
  1295.             TEXT "║ Microsoft (R) 2, and Logitech (R) 3║█"
  1296.             TEXT "║button mouse versions also available║█"
  1297.             TEXT "║             ┌────────┐             ║█"
  1298.             TEXT "║             │ RETURN │             ║█"
  1299.             TEXT "║             └────────┘             ║█"
  1300.             TEXT "╚════════════════════════════════════╝█"
  1301.             TEXT "███████████████████████████████████████"
  1302.  
  1303.             SELECT 16,17,6,helpmenu1
  1304.             PEND
  1305.  
  1306.